home *** CD-ROM | disk | FTP | other *** search
/ isnet Internet / Isnet Internet CD.iso / prog / chat / 12 / 12.exe / SYSTEM / Btnetfld.mrc < prev    next >
Encoding:
Text File  |  2000-02-26  |  4.8 KB  |  171 lines
  1. on @1:JOIN:# {
  2.   if ((%bt.join == on) && ($ulevel != 40)) bt.jscan $chan $tp(botnet.txt)
  3. }
  4. on @1:TEXT:*:# {
  5.   if ((%bt.msg == on) && ($ulevel != 40)) bt.mscan $chan $tp(botnet.txt)
  6. }
  7. on @1:ACTION:*:# {
  8.   if ((%bt.msg == on) && ($ulevel != 40)) bt.mscan $chan $tp(botnet.txt)
  9. }
  10. on @1:NOTICE:*:# {
  11.   if ((%bt.msg == on) && ($ulevel != 40)) bt.mscan $chan $tp(botnet.txt)
  12. }
  13. on 1:NICK {
  14.   if ((%bt.nick != on) || ($ulevel != 40) || ($newnick == $me)) return
  15.   var %a, %z
  16.   set %a 0
  17.   :start
  18.   inc %a
  19.   if ($comchan($newnick,%a)) {
  20.     set %z $ifmatch
  21.     if ($me isop %z) bt.nscan %z $tp(botnet.txt)
  22.     goto start
  23.   }
  24. }
  25. CTCP 1:*:# {
  26.   if (($me isop $chan) && (%bt.ctcp == on) && ($ulevel != 40)) bt.cscan $chan $tp(botnet.txt)
  27. }
  28. alias -l bt.mscan {
  29.   if ($isvalidchan(%bt.mchan,$1) != $true) return
  30.   var %a, %b
  31.   set %a $readini -n $2 $1 mn
  32.   set %b $ticks
  33.   dec %b $readini -n $2 $1 mt
  34.   if ((%a == $null) || (%b > %bt.mtime)) {
  35.     writeini -n $2 $1 mn 0
  36.     writeini -n $2 $1 mt $ticks
  37.     return
  38.   }
  39.   inc %a
  40.   writeini -n $2 $1 mn %a
  41.   if (%a <= %bt.maxmsgs) return
  42.   remini $2 $1
  43.   if (%bt.mmod == on) {
  44.     mode $1 +m
  45.     set %f11cmd mode $1 -m
  46.   }
  47.   else set %f11cmd mode $1 +m
  48.   if (%bt.mknop == on) bt.knop $1 %bt.mkick
  49.   else set %f12cmd bt.knop $1 %bt.mkick
  50.   iiecho . $+ $str(-,25) $+ .
  51.   iiecho $vl $hc(FLOOD!) type $fix(11,BotMessage) $vl
  52.   iiecho $vl $+ $str(-,25) $+ $vl
  53.   iiecho $vl Chan: $fix(17,$1) $vl
  54.   if (%bt.mmod == on) iiecho $vl $fix(23,F11: undo +m) $vl
  55.   else iiecho $vl $fix(23,F11: +m chan) $vl
  56.   if (%bt.mknop == off) iiecho $vl $fix(23,F12: kick nonops) $vl
  57.   iiecho ' $+ $str(-,25) $+ '
  58. }
  59. alias -l bt.jscan {
  60.   if ($isvalidchan(%bt.jchan,$1) != $true) return
  61.   var %a, %b
  62.   set %a $readini -n $2 $1 jn
  63.   set %b $ticks
  64.   dec %b $readini -n $2 $1 jt
  65.   if ((%a == $null) || (%b > %bt.jtime)) {
  66.     writeini -n $2 $1 jn 0
  67.     writeini -n $2 $1 jt $ticks
  68.     return
  69.   }
  70.   inc %a
  71.   writeini -n $2 $1 jn %a
  72.   if (%a <= %bt.maxjoins) return
  73.   remini $2 $1
  74.   if ((%bt.dont.trigger == on) && (%bt.jmod == on)) {
  75.     set %bt.jmod off
  76.     .timer 1 20 set %bt.jmod on $vl unset %bt.dont.trigger
  77.     timoff %bt.dont.timer2 bt.dont.timer2
  78.     timoff %bt.dont.timer bt.dont.timer
  79.   }
  80.   else unset %bt.dont.trigger
  81.   if (%bt.jmod == on) {
  82.     mode $1 +i
  83.     set %f11cmd mode $1 -i
  84.   }
  85.   else set %f11cmd mode $1 +i
  86.   if (%bt.jknop == on) bt.knop $1 %bt.jkick
  87.   else set %f12cmd bt.knop $1 %bt.jkick
  88.   iiecho . $+ $str(-,25) $+ .
  89.   iiecho $vl $hc(FLOOD!) type $fix(11,BotJoin) $vl
  90.   iiecho $vl $+ $str(-,25) $+ $vl
  91.   iiecho $vl Chan: $fix(17,$1) $vl
  92.   if (%bt.jmod == on) iiecho $vl $fix(23,F11: undo +i) $vl
  93.   else iiecho $vl $fix(23,F11: +i chan) $vl
  94.   if (%bt.jknop == off) iiecho $vl $fix(23,F12: kick nonops) $vl
  95.   iiecho ' $+ $str(-,25) $+ '
  96. }
  97. alias -l bt.nscan {
  98.   if ($isvalidchan(%bt.nchan,$1) != $true) return
  99.   var %a, %b
  100.   set %a $readini -n $2 $1 nn
  101.   set %b $ticks
  102.   dec %b $readini -n $2 $1 nt
  103.   if ((%a == $null) || (%b > %bt.ntime)) {
  104.     writeini -n $2 $1 nn 0
  105.     writeini -n $2 $1 nt $ticks
  106.     return
  107.   }
  108.   inc %a
  109.   writeini -n $2 $1 nn %a
  110.   if (%a <= %bt.maxnicks) return
  111.   remini $2 $1
  112.   if (%bt.nmod == on) {
  113.     mode $1 +i
  114.     set %f11cmd mode $1 -i
  115.   }
  116.   else set %f11cmd mode $1 +i
  117.   if (%bt.mknop == on) bt.knop $1 %bt.nkick
  118.   else set %f12cmd bt.knop $1 %bt.nkick
  119.   iiecho . $+ $str(-,25) $+ .
  120.   iiecho $vl $hc(FLOOD!) type $fix(11,BotNick) $vl
  121.   iiecho $vl $+ $str(-,25) $+ $vl
  122.   iiecho $vl Chan: $fix(17,$1) $vl
  123.   if (%bt.nmod == on) iiecho $vl $fix(23,F11: undo +i) $vl
  124.   else iiecho $vl $fix(23,F11: +i chan) $vl
  125.   if (%bt.nknop == off) iiecho $vl $fix(23,F12: kick nonops) $vl
  126.   iiecho ' $+ $str(-,25) $+ '
  127. }
  128. alias -l bt.cscan {
  129.   if ($isvalidchan(%bt.cchan,$1) != $true) return
  130.   var %a, %b
  131.   set %a $readini -n $2 $1 cn
  132.   set %b $ticks
  133.   dec %b $readini -n $2 $1 ct
  134.   if ((%a == $null) || (%b > %bt.ncime)) {
  135.     writeini -n $2 $1 cn 0
  136.     writeini -n $2 $1 ct $ticks
  137.     return
  138.   }
  139.   inc %a
  140.   writeini -n $2 $1 cn %a
  141.   if (%a <= %bt.maxctcps) return
  142.   remini $2 $1
  143.   if (%bt.cmod == on) {
  144.     mode $1 +m
  145.     set %f11cmd mode $1 -m
  146.   }
  147.   else set %f11cmd mode $1 +m
  148.   if (%bt.cknop == on) bt.knop $1 %bt.ckick
  149.   else set %f12cmd bt.knop $1 %bt.ckick
  150.   iiecho . $+ $str(-,25) $+ .
  151.   iiecho $vl $hc(FLOOD!) type $fix(11,BotCTCP) $vl
  152.   iiecho $vl $+ $str(-,25) $+ $vl
  153.   iiecho $vl Chan: $fix(17,$1) $vl
  154.   if (%bt.cmod == on) iiecho $vl $fix(23,F11: undo +m) $vl
  155.   else iiecho $vl $fix(23,F11: +m chan) $vl
  156.   if (%bt.cknop == off) iiecho $vl $fix(23,F12: kick nonops) $vl
  157.   iiecho ' $+ $str(-,25) $+ '
  158. }
  159. alias bt.knop {
  160.   var %a, %z
  161.   set %a 0
  162.   :start
  163.   inc %a
  164.   if ($rnick($1,%a)) {
  165.     set %z $ifmatch
  166.     if ($usr(%z) == $null) queue kick $1 %z : $+ $2-
  167.     goto start
  168.   }
  169.   queue
  170. }
  171.